-- card: 3528 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Log in
----- HyperTalk script -----
on idle
  global port
  put the time into field 4
  put line 3 of field 1 into firstn
  put line 4 of field 1 into lastn
  put line 5 of field 1 into passw
  if SPortHasChar(port) then
    put empty into reslts
    repeat 3
      put recvUpTo(port,return,2,false,false) into newIn
      put newIn after reslts
    end repeat
    if the length of reslts >0 then
      if reslts contains "CONNECT " then
        put "Logging you in "&firstn
        wait 40
        sendSPort port,false,return
      else if reslts contains "CARRIER" then
        beep
        put "Sorry "&firstn&" but the was no carrier detected"
        wait 60
        Hide Msg
      else if reslts contains "BUSY" then
        answer "Line is busy, try later" with OK
      else  if reslts contains "first" then
      wait 30
      sendSPort port,false,firstn &return
    else if reslts contains "last" then
      wait 30
      sendSPort port,false,lastn &return
    else if reslts contains "password" then
      wait 30
      sendSPort port,false,passw &return
      go to card "Main Menu"
      pass idle
    end if
  end if
end if
end idle


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=195 top=175 right=197 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Log On
----- HyperTalk script -----
on mouseUp
  global port,number
  sendSPort port,false,"ATZ" & return
  wait 90
  sendSPort port,false,"ATM3" & return
  wait 30
  if number <> empty then sendSPort port,false,"ATDP"&number & return
  else answer "Go to USER CARD and fill out dialing area"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=398 top=31 right=59 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Time User
----- HyperTalk script -----
on mouseUp
  go to card setUpUser
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=296 right=342 bottom=44
-- title width / last selected line: 0
-- icon id / first selected line: 20689 / 20689
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "info"
end mouseUp



-- part 18 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=62 top=133 right=237 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: info
----- HyperTalk script -----
on mouseup
  hide card field "info"
end mouseup


-- part 21 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=164 top=76 right=88 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 4
-- text size: 9
-- style flags: 16384
-- line height: 12
-- part name: Version Number


-- part contents for background part 4
----- text -----
Wed, Sep 28, 1988

-- part contents for background part 5
----- text -----
9:12 PM

-- part contents for card part 18
----- text -----
If you are using this stack for the first time, please click on the "First Time User" button.  Here you can fill out all your info so that this stack can successfully log you on.  PLEASE make sure that your password is CORRECT or it will screw up this system royally.

Then all you have to do here is click on the 'Log In" button, and you will be connected to the NCMC TCS! It's that easy.








-- part contents for background part 1
----- text -----
1
19502



2336262
Wed, Sep 28, 1988, 9:12 PM

-- part contents for background part 3
----- text -----
Sun, Sep 25, 1988, 10:17 PM

-- part contents for card part 21
----- text -----
Stack Version: .95ß